home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / userbox / publicdomain / edspell.lha / EdSpell / Rexx / UnLoadDictionary.epxx < prev   
Text File  |  1996-07-28  |  2KB  |  41 lines

  1. /************************************************************************/
  2. /*                                                                      */
  3. /*     File : LookUpWord.epxx                                           */
  4. /*   Author : Martin Reddy                                              */
  5. /*     Date : 28/8/92                                                   */
  6. /*  Purpose : An ARexx script used to control the text editor EdWord    */
  7. /*     Note : This is part of the Spell Checking facility of EdWord     */
  8. /* Function : This script checks to see if the ispell dictionary is     */
  9. /*            currently in memory. If it is, then the user is given the */
  10. /*            option of unloading it from memory... this will return    */
  11. /*            all of the memory which the dictionary is using, but will */
  12. /*            mean that the next spell check will require the dictionary*/
  13. /*            to be loaded back into memory.                            */
  14. /*                                                                      */
  15. /************************************************************************/
  16.  
  17.  
  18.     /*-------------- Nothing To Change Below Here -----------*/
  19.  
  20.     HOST = ADDRESS()
  21.     ADDRESS VALUE HOST
  22.  
  23.     OPTIONS RESULTS
  24.  
  25.     /********** Check for the ISpell process *********/
  26.  
  27.     IF ~SHOW( PORTS, 'IRexxSpell' ) THEN DO
  28.         Inform "The Dictionary Is Not|Currently In Memory!"
  29.         EXIT
  30.     END
  31.  
  32.     /**************** Kill The Dictionary *****************/
  33.  
  34.     Request "Do You Really Want To Unload|The Dictionary From Memory?"
  35.  
  36.     IF RC ~= 0 THEN DO
  37.         ADDRESS "IRexxSpell" EXIT
  38.         Alert "Dictionary Removed From Memory"
  39.     END
  40.     
  41.